home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / tr.dir / 00001.ls next >
Encoding:
Text File  |  1996-04-18  |  2.7 KB  |  66 lines
  1. on GetGameProps
  2.   global gTRGameObj
  3.   set vPropsList to list()
  4.   add(vPropsList, mGetInited(gTRGameObj))
  5.   add(vPropsList, mGetWhosTurn(gTRGameObj))
  6.   add(vPropsList, mGetPlayMode(gTRGameObj))
  7.   add(vPropsList, mGetCatagories(gTRGameObj))
  8.   add(vPropsList, mGetPopCount(gTRGameObj))
  9.   return vPropsList
  10. end
  11.  
  12. on GetPlayerProps aPlayerNum
  13.   global gzTRPlayerObj
  14.   set vPropsList to list()
  15.   add(vPropsList, mGetMyName(getAt(gzTRPlayerObj, aPlayerNum)))
  16.   add(vPropsList, mGetMyHighestScore(getAt(gzTRPlayerObj, aPlayerNum)))
  17.   add(vPropsList, mGetMyCurrentScore(getAt(gzTRPlayerObj, aPlayerNum)))
  18.   add(vPropsList, mGetBeatHighScore(getAt(gzTRPlayerObj, aPlayerNum)))
  19.   return vPropsList
  20. end
  21.  
  22. on GetBalloonProps aBalNum
  23.   global gzTRBalloonObj
  24.   set vPropsList to list()
  25.   add(vPropsList, mGetMyPopColor(getAt(gzTRBalloonObj, aBalNum)))
  26.   add(vPropsList, mGetMyQuestion(getAt(gzTRBalloonObj, aBalNum)))
  27.   add(vPropsList, mGetAmIPopped(getAt(gzTRBalloonObj, aBalNum)))
  28.   add(vPropsList, mGetMyVisible(getAt(gzTRBalloonObj, aBalNum)))
  29.   add(vPropsList, mGetMySpriteChan(getAt(gzTRBalloonObj, aBalNum)))
  30.   add(vPropsList, mGetMyPointValue(getAt(gzTRBalloonObj, aBalNum)))
  31.   add(vPropsList, mGetAmIDouble(getAt(gzTRBalloonObj, aBalNum)))
  32.   add(vPropsList, mGetHaveIBeenDouble(getAt(gzTRBalloonObj, aBalNum)))
  33.   add(vPropsList, mGetMyCastNum(getAt(gzTRBalloonObj, aBalNum)))
  34.   return vPropsList
  35. end
  36.  
  37. on SetGameProps aObjProps
  38.   global gTRGameObj
  39.   mSetInited(gTRGameObj, getAt(aObjProps, 1))
  40.   mSetWhosTurn(gTRGameObj, getAt(aObjProps, 2))
  41.   mSetPlayMode(gTRGameObj, getAt(aObjProps, 3))
  42.   mSetCatagories(gTRGameObj, getAt(aObjProps, 4))
  43.   mSetPopCount(gTRGameObj, getAt(aObjProps, 5))
  44. end
  45.  
  46. on SetPlayerProps aPlayerNum, aObjProps
  47.   global gzTRPlayerObj
  48.   mSetMyName(getAt(gzTRPlayerObj, aPlayerNum), getAt(aObjProps, 1))
  49.   mSetMyHighestScore(getAt(gzTRPlayerObj, aPlayerNum), getAt(aObjProps, 2))
  50.   mSetMyCurrentScore(getAt(gzTRPlayerObj, aPlayerNum), getAt(aObjProps, 3))
  51.   mSetBeatHighScore(getAt(gzTRPlayerObj, aPlayerNum), getAt(aObjProps, 4))
  52. end
  53.  
  54. on SetBalloonProps aBalloonNum, aObjProps
  55.   global gzTRBalloonObj
  56.   mSetMyPopColor(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 1))
  57.   mSetMyQuestion(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 2))
  58.   mSetAmIPopped(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 3))
  59.   mSetMyVisible(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 4))
  60.   mSetMySpriteChan(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 5))
  61.   mSetMyPointValue(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 6))
  62.   mSetAmIDouble(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 7))
  63.   mSetHaveIBeenDouble(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 8))
  64.   mSetMyCastNum(getAt(gzTRBalloonObj, aBalloonNum), getAt(aObjProps, 9))
  65. end
  66.